home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 016a / fansi.zip / RAWMODE.MAC < prev    next >
Text File  |  1986-08-29  |  3KB  |  107 lines
  1. ;
  2. ;    This is file: RAWMODE.MAC
  3. ;
  4. ;    Written by Mark Hersey
  5. ;    Hersey Micro Consulting, Inc.
  6. ;
  7. ;    This program is public domain.  No copyrights reserved.
  8. ;
  9. ;    The purpose of these subroutines is to allow your program
  10. ;    to use raw console output, which is faster than the
  11. ;    normal (cooked or ASCII) mode.  When the console is in cooked
  12. ;    mode, MS-DOS checks for console input (specifically looking
  13. ;    for Ctrl-C == Ctrl-Break) with every character 
  14. ;    that is written to the screen.  In raw mode, it will not.
  15. ;
  16. ;    You may need to change the procedure names to match
  17. ;    the requirements of your compiler.
  18. ;    You may need to change the segment and group names to match
  19. ;    those used by your compiler.
  20. ;
  21.     .xlist
  22.     include    compiler.mlb
  23.     if1
  24.         include    macros.mlb
  25.     endif
  26.     .list
  27.  
  28.     xinit                    ;Initialize structured macros.
  29.  
  30. dgroup    group    _data
  31.  
  32. _data    segment    byte public 'data'
  33.         assume    nothing
  34.  
  35. saved_mode    db    ?
  36.  
  37.     assume    nothing
  38. _data    ends
  39.  
  40.     if    bigcode
  41. rawmode_text    segment    byte public 'code'
  42.         assume    cs:rawmode_text
  43.     else    ;not bigcode
  44. _text    segment byte public 'code'
  45.     assume    cs:_text
  46.     endif    ;bigcode
  47.     
  48.     assume    ds:dgroup
  49. ;
  50. ;    _raw_mode - Save old mode and put console device into raw mode.
  51. ;
  52. ;    Inputs:
  53. ;        None    
  54. ;    Outputs:
  55. ;        [saved_mode] has old mode in it.
  56. ;        Console is in raw mode.
  57. ;    Comments:
  58. ;        Call once at the start of your program.
  59. ; 
  60. procdcl    _raw_mode
  61.     
  62.     mov    ah,044h                ;I/O-Control call for devices.
  63.     mov    al,000h                ;Get device information.
  64.     mov    bx,001h                ;File handle for CON: output.
  65.     int    021h                ;Make MS-DOS call.
  66.     mov    [saved_mode],dl            ;Save old mode.
  67.     mov    ah,044h                ;I/O-Control call for devices.
  68.     mov    al,001h                ;Set device information.
  69.     mov    bx,001h                ;File handle for CON: output.
  70.     xor    dh,dh                ;Must be zero.
  71.     or    dl,020h                ;Set raw mode bit, leave others same.
  72.     int    021h                ;Make MS-DOS call.
  73.     ret
  74.     
  75. _raw_mode    endp
  76. ;
  77. ;    _old_mode - Save old mode and put console device into raw mode.
  78. ;
  79. ;    Inputs:
  80. ;        [saved_mode] has old mode in it.
  81. ;    Outputs:
  82. ;        Console is set to [saved_mode].
  83. ;    Comments:
  84. ;        Call once at the end of your program.
  85. ;
  86. procdcl    _old_mode
  87.     
  88.     mov    ah,044h                ;I/O-Control call for devices.
  89.     mov    al,001h                ;Set device information.
  90.     mov    bx,001h                ;File handle for CON: output.
  91.     xor    dh,dh                ;Must be zero.
  92.     mov    dl,[saved_mode]            ;Get old mode.
  93.     int    021h                ;Make MS-DOS call.
  94.     ret
  95.  
  96. _old_mode    endp
  97.  
  98.         assume    nothing
  99.  
  100.     if    bigcode
  101. rawmode_text    ends
  102.     else    ;not bigcode
  103. _text    ends    
  104.     endif    ;bigcode
  105.  
  106.     end
  107.